home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD7459752000.psc / MeckVB Vars.bas < prev    next >
Encoding:
BASIC Source File  |  2000-07-05  |  1.2 KB  |  36 lines
  1. Attribute VB_Name = "Vars"
  2. 'Sleep I didn't used but it's a great function.  It's basicall a pause.
  3. 'Call it like Sleep(1000) where 1000 = 1 second.
  4. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  5.  
  6. 'This is the function that gets the state of a key, pressed or unpressed.
  7. Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  8.  
  9. 'These are the variables used for the keys
  10. 'They can be anything you like
  11. Public Up As Integer
  12. Public Down As Integer
  13. Public Lef As Integer
  14. Public Rig As Integer
  15. Public Shoot As Integer
  16. Public En As Integer
  17.  
  18. Public speed As Single 'Veloity of object
  19. Public Ang As Single 'Angle in degrees in which the object is moving
  20. Public AngInc As Single 'Increment by which angle changes
  21. Public Pie As Single 'Pi
  22.  
  23. 'All DC Variables must be defined as Long
  24. Public MechB As Long
  25. Public MechW As Long
  26. Public Mech1 As Long
  27. Public Mech2 As Long
  28. Public MechShootB As Long
  29. Public MechShootW As Long
  30. Public BackGround As Long
  31.  
  32. Public MechX As Single 'X position of Tank(was going to be a mechwarrior)
  33. Public MechY As Single 'Y position of Tank
  34. Public MechP As Integer 'Position on bitmap from which you are blitting
  35.  
  36.